TITLE 

TYPE 

NUMBER OF WORDS 

TEMPORARY STORAGE 

ACCURACY 

SPEED 

USE 



"" Q contains; 
50 nF 
50 qF 
52 nF 
50 qF 

5k 100p+nF 
50 qF 

56 100p+nF 

50 qF 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 

LIBRARY ROUTIN E g l6 - 2lA 
Infraprint (DOI or SADOl) 
Closed with one program parameter 
56 

0, 1, 2 

1 to 12 digit exactly rounded fractions or exact integers 
Punching time 

This INteger FRAction PRINT routine will print A to 
n-places (L to 12) correctly rounded (n digits or spaces 
if the integer is less than 10 , all digits if greater than 
10 ), with (optional) decimal point anywhere, with non- 
significant zeros before the decimal point (whether this 
point is printed or not) replaced "by spaces, sign before 
the first non-space character,, with a - sign for a negative 
number >and your choice of -*-, space, or delay character 
for a positive number, and no extra spaces „ 
Then before going to the R.H- order at q+ls 
A is printed as. an n-place fraction with a sign + or -, 
with no zero suppression <> 

A is printed as an n -place integer with sign + or - 
with zero suppression on all but the last digit. 
A is printed as an n-plg.ce fraction with sign + or - 
with a decimal point a fter p digits and zero suppression 
on the first p digits < p < n» 

A is printed as an n-plaee integer with sign + or - 
with a decimal point after p digits, and zero suppression 
before the decimal point » < p < .n. 

JO, J2, Jkj j6 have the same effect as 50, 52, ^k, % 
except that a space is printed instead of a + sign for 
positive numbers o 



2 - 



Entering the routine at the right hand order at 1 rather 
than the left hand order at 0_, with a J -type parameter 
causes a delay character to be punched for the sign if 
A is positive . This unsigned number entry omits the 
sign of a positive number o 

To obtain a space instead of a decimal point,, change the 
order pair at 51L (the 52nd word of the routine) to 

92 963F 

22 5% 
To obtain unrounded fractions instead of rounded fractions 9 
change the order VQ.pc at 20L to 

50 IF 

75 F 
This routine does not print s paces after, the number . 
REMAKES Fractions are converted to integers by a rounded 

multiplication by 10 « (The sign is the sign of the 

rounded number so a small enough negative fraction is 

printed as -i-0). The absolute value of the resulting 

integer is taken, and converted to 12 decimal digits which 

are omitted ,, replaced by spaces s or printed according to 

the following rules : 

1, The last digit is always printed « 

2o The last n digits are always printed if 50 or JO 

parameter was specified » 
3o All digits following a decimal point are printed. 
ko The first non-zero digit is printed even if it 

occurs before the last n digits^ and all subsequent 
. digits are printed „ 
5o If no digits have been printed ^ zeros before the last 
n digits are omitted,, and zeros during the last n 
places are replaced by spaces „ 



- 3 - 

6. The sign is printed Just before the first non-space 
character (which aay be a digit or a point) . 



1*1 a ^Jvtf ^i fff^*> 



Tfrua all digits of an integer are printed, and if a 
fraction after correct rounding would equal 1 in 
absolute value, the fraction is printed to one More 
place. The nuaber 1 to 3 places is 1000. The only- 
exception is n = 12, when -1 is printed as 



meaning 



-+00000000000 
-KDOOOOOOOOOO 



If integers or 12 place fractions are read back into 
the machine, the original numbers are recovered, without 
rounding - off error. 

The numbers -.001, 1/2, «999* -1 would be printed via 
the following parameters as shown 



lgr 



50 2F: 



52 IF: 



jk- 3F: 



5^ 103F: 



5^ 303F: 



+00 


-.001 


-•01 


-1. 


+50 


.500 


+5.00 


+500. 


+100 


.999 


+9.99 


+999. 


-100 


-1.000 


-10.00 


-1000. 



The numbers 3x2~ 59 , -21x2~^, ^50x2*^, 1364x2"^ 
would be printed via the following parameters as shown 



J2 kF\ 



56 IF: 



56 40^F: 





+3 


3 


+ •3 


+3. 


-21 


-21 


-2.1 


-21. 


+450 


450 


+45.0 


+450. 


-1364 


-1364 


-136 A " 


-1364. 



DAT E June 19, 1956 rtt {3/9/59 



PROGRAMMED BY 
APPROVED BY 



D. B. Gillies 



J. P. Nash 



LOCATION 



3 

4 

5 
6 

7 
8 

9 
10 

11 
12 

13 

15 
16 

17 



ORDER 

00 X(KL6) 

1*0 F 

L5 3L 
22 2L 



4o 


F 


L5 


8l 


46 40L 


K5 


96$F 


40 2F 


42 42L 


^9 


IF 


00 


7F 


11 


26f 


66 kjL 


00 


24f 


40 


55L 


10 


4f 


SO 515F 


L4 54l 


22 


13L 



LI 2F 
00 6F 
36 13L 
50 IF 
75 52L 
S4 642F 
40 IF 
L5 27L 
IA 55L 
4o 55L 
32 9L 
Ll 2F 
00 5F 
32 19L 
00 IF 
36 19L 
50 55L 



k- 1 



by f 



by 2 



4-J 

4- 



gP3FES 



Normal entry 

Entry omitting space on positive mafoer 

Plant space or delay character 
Plant order pair 



£16 



Plant link 



10 11 



Set 1/2 in 1 (for — s — ) 



A = 2n-2" 59 Q = (2p + l) -2 



-39 



A = -2~ lk +(n-p+3) • 2" 18 + ... + 4.2" 53 + 3-2 39 



55L * n.2 



-14 



If integer, skip ( 



10 1 



) calculation 



Calculate ( a ) 
by 29 « 

-14 ,_ «-38 

Count dovn by 2 , up by 2 ^ 

[Produces finally 

-2" l4 + (n- P+ 3)2 _l8 + ...+4 2* 55 + (n+3)2" 39 ] 

If decimal point required leave counter 

intact . 

If no dec. pt. test no zero-suppression 
No zero suppression 



LOCATION 


ORDER 


■one page 2 


18 


00 45F 
**2 55L 






■ 


■ 


19 


±7 55L 


4 






J Kb decimal point 




19 IF 








20 


50 IF 
74 F 






Rounded multiplication by 10" or 1 
J (with scaling factor 1/2) 


21 


32 27L 


+ 


SO 


7 . 


J Test sign of rounded number 




r* 




00 IF 








22 


kO F 
LI F 






If negative take the Modulus 


23 


*K> F 

L5 3^L 






And plant - sign 


2* 


h6 hOL 


/" 


TL 


o ■ 


J (Or + sign from 30L) 


\ 


7 




50 53L 


ap 


-29 


(or leave sign sp. or delay) 


25 


L5 F 
32 30L 




9 


Test 1 < number < 2 (different round -off ) 






yyj 


26 


LI 33L 






Negative round-off 




26 31L 






i 






fj 


27 


LL hoShF 


<- 


—21 


Store positive number 


00 IF 


26 


1*0 F 
LI 2F 






Print space or delay? 


29 


32 2^L 




>2J 


*« . 






7^ 




L5 12L 




a 


Then plant + sign instead. 


30 


26 2^L 




-)2^ 








L5 33L 


4- 


25 1 


Positive round -off 


31 


lh F 






Multiply by 2 55 /l0 11 + {.2lh2)2 m ^ 




36 33L 




"i^" 


5 


Test size of multiplier 




/■>. 


32 


L^ 53L .. 
IA 53L 






1 < multiplier < 2 cause sign to have 
effect of +1 or -1 in multiplication . 


33 


10 35F 


«— 


-3i' ; 


]A = digit • 2 -59 Q « fractional part. 




1*0 F 


4- 


1*9' 


Plant both halves 


3^ 


S5 706f 
^0 IF 


Ijby 


23' 


of product 


35 


L5 50L 








: 


Lh 55L 


<- 


•>r ] 


Multiple (4-way) count 



p l£ 



r: 



LOCATION 



36 
37 
38 
39 

i 
i 

I 

I 1+2 
i 

I 

^3 

J kk 

i 

j 45 

i 

I 

j k6 

j 47 

I ^9 

: 51 
52 



53 



ORDER 



40 55L 
36 3% 
00 29F 
36 39L 
L3 F 
36 4lL 
L3 2F 

36 im 
92 ( )F 

kl 2F 
L5 55L 
32 50L 
00 2 OF 



NOTES 
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"Ml 



->M 



by 2',2^ 

*-38«,39' 
— »50» 



32 (link)?) by k 



L3 2F 


Lk 


F 


32 ^7L 


L5 


55L 


00 


35F 


32 


hQL 


92 


963F 


22 


48L 


00 


F 


00 


100F 


82 


4f 


50 


52L 


75 


IF 


22 


33L 



00 2F 
09 65F 
92 6k 3F 
22 35L 
00 F 
00 10F 
2S IfOl^F 
LN 755F 



-»Vr 



D : ~ ~ 

Prepare to print point? 

No 

Prepare to print even non-significant zero? 

No 

This digit zero? 

No 

have printed some digit already? 

Print sign 

Record fact that all digits now to be printed 

Print point? 

Obey link? 

The result of these orders is negative if 

no digit to be printed, and is that digit 
. if print. 
J Print digit? 



Don't print space 



P lo 



■»1*8- 



■»lf8' 



■ kk 



<-^5',^6 I 



33' 



ki 



35' 
I 10 2 



-39 



2W 1 



Print space 



Shift left 36 

Print 

Multiply fraction by 10 to 

produce a digit in A, plus a 

fractional part in Q 

Print ©and enter count loop in such 
a way as to inhibit further 
decimal pts . 



Constants 



LOCATION 



5^ 



55 



ORDER 



LL 4071F 
90 1283F 
00 F 
00 F 



Count 



) 



J 



ROTES 



PAGE 4 



P 16 



intermediate storage for the 
multiple count. 



